% -*- coding: utf-8-dos -*-

%% \chapter{原始数据}

%% \section{1952-2010年全国相关变量原始数据}
%% \begin{small}
%% \begin{longtable}
%%   {
%%     S[table-column-width=1.2cm,table-format = 4.0,table-auto-round]
%%     S[table-column-width=1.5cm,table-format = 5.2,table-auto-round]
%%     S[table-column-width=1.2cm,table-format = 1.3,table-auto-round]
%%     S[table-column-width=1.2cm,table-format = 5.0,table-auto-round]
%%     S[table-column-width=1.2cm,table-format = 6.2,table-auto-round]
%%     S[table-column-width=1.0cm,table-format = 1.3,table-auto-round]
%%     S[table-column-width=1.0cm,table-format = 5.2,table-auto-round]
%%     S[table-column-width=1.0cm,table-format = 1.3,table-auto-round]
%%   }
%% \caption[1952-2010年全国相关变量原始数据]{1952-2010年全国相关变量原始数据}
%% \label{tab:app-country-data}\\


%%   \toprule
%%   \multicolumn{1}{c}{年份} &
%%   \multicolumn{1}{c}{名义GDP} &
%%   \multicolumn{1}{c}{GDP增长率} &
%%   \multicolumn{1}{c}{就业人口}&
%%   \multicolumn{1}{c}{资本形成}&
%%   \multicolumn{1}{c}{资本增长率}&
%%   \multicolumn{1}{c}{教育经费}&
%%   \multicolumn{1}{c}{CPI}\\
%%   \endfirsthead

%%   \multicolumn{8}{c}{{\bfseries\heiti \tablename\ \thetable{}
%%       ~~1952-2010年全国相关变量原始数据(续表)}} \\
%%   \toprule
%%   \multicolumn{1}{c}{年份} &
%%   \multicolumn{1}{c}{名义GDP} &
%%   \multicolumn{1}{c}{GDP增长率} &
%%   \multicolumn{1}{c}{就业人口}&
%%   \multicolumn{1}{c}{资本形成}&
%%   \multicolumn{1}{c}{资本增长率}&
%%   \multicolumn{1}{c}{教育经费}&
%%   \multicolumn{1}{c}{CPI}\\
%%   \midrule
%%   \endhead

%%   \bottomrule
%%   \endfoot

%%   \endlastfoot

%% @
%% <<app-country-data, echo=F, results=tex>>=
%% library(xtable)
%% country.data <- read.csv("D:/Works/读博项目/Dissertation/Rnw/country1953-2010.csv")
%% country.data.table <- xtable(country.data,
%%                    caption="",
%%                    label="",
%%                    digits=4,
%%                    )

%% print(country.data.table, floating=F,
%%       caption.placement="top",
%%       table.environment=NULL,
%%       booktabs=T,
%%       sanitize.text.function = function(x){x}, # 数学公式
%%       only.contents=T, # 控制是否有table和表格环境
%%       include.rownames=FALSE,
%%       include.colnames=F,
%%       )

%% @ %def

%% \end{longtable}

%% 注：1.数据来源：历年《中国统计年鉴》，《新中国 60 年统计资料汇编》;

%% 2. GDP、资本形成额和教育经费单位为亿元，就业人口单位为万人。

%% \end{small}


%% \clearpage
%% \section{1990-2010年中国地区相关变量原始数据}
%% \begin{small}
%% \begin{longtable}
%%   {
%%     S[table-column-width=1.0cm,table-format = 4.0,table-auto-round]
%%     >{\centering}p{1.6cm}
%%     S[table-column-width=1.2cm,table-format = 5.2,table-auto-round]
%%     S[table-column-width=1.2cm,table-format = 1.3,table-auto-round]
%%     S[table-column-width=1.2cm,table-format = 5.0,table-auto-round]
%%     S[table-column-width=1.0cm,table-format = 1.3,table-auto-round]
%%     S[table-column-width=1.4cm,table-format = 5.2,table-auto-round]
%%   }
%% \caption[1990-2010年中国地区相关变量原始数据]{1990-2010年中国地区相关变量原始数据}
%% \label{tab:app-district-data}\\


%%   \toprule
%%   \multicolumn{1}{c}{年份} &
%%   \multicolumn{1}{c}{地区} &
%%   \multicolumn{1}{c}{名义GDP} &
%%   \multicolumn{1}{c}{GDP增长率} &
%%   \multicolumn{1}{c}{就业人口}&
%%   \multicolumn{1}{c}{受教育年限}&
%%   \multicolumn{1}{c}{资本存量}\\
%%   \endfirsthead

%%   \multicolumn{7}{c}{{\bfseries\heiti \tablename\ \thetable{}
%%       ~~ 1990-2010年中国地区相关变量原始数据(续表)}} \\
%%   \toprule
%%   \multicolumn{1}{c}{年份} &
%%   \multicolumn{1}{c}{地区} &
%%   \multicolumn{1}{c}{名义GDP} &
%%   \multicolumn{1}{c}{GDP增长率} &
%%   \multicolumn{1}{c}{就业人口}&
%%   \multicolumn{1}{c}{受教育年限}&
%%   \multicolumn{1}{c}{资本存量}\\
%%   \midrule
%%   \endhead

%%   \bottomrule
%%   \endfoot

%%   \endlastfoot

%% @
%% <<app-district-data, echo=F, results=tex>>=
%% district.data <- read.csv("D:/Works/读博项目/Dissertation/Rnw/district1990-2010.csv")
%% district.data.table <- xtable(district.data,
%%                    caption="",
%%                    label="",
%%                    digits=4,
%%                    )

%% print(district.data.table, floating=F,
%%       caption.placement="top",
%%       table.environment=NULL,
%%       booktabs=T,
%%       sanitize.text.function = function(x){x}, # 数学公式
%%       only.contents=T, # 控制是否有table和表格环境
%%       include.rownames=FALSE,
%%       include.colnames=F,
%%       )

%% @ %def

%% \end{longtable}

%% 注：1.数据来源：历年《中国统计年鉴》，《新中国 60 年统计资料汇编》，
%% 《中国人口和就业统计年鉴》，《中国人口统计年鉴》和《中国国内生产总值核
%% 算历史资料》;

%% 2. GDP、资本存量单位为亿元，就业人口单位为万人，平均受教育年
%% 限单位为年每人。

%% 3.资本存量是按1990年不变价计算。
%% \end{small}

%% \chapter{地区GDP数据统计诊断结果}

%% \begin{small}
%% \begin{longtable}
%%   {
%%     S[table-column-width=1.0cm,table-format = 4.0,table-auto-round]
%%         >{\centering}p{1.6cm}
%%         S[table-column-width=1.6cm,table-format = 2.4]
%%         S[table-column-width=1.6cm,table-format = 2.4]
%%         S[table-column-width=1.5cm,table-format = 2.4]
%%         S[table-column-width=1.6cm,table-format = 2.4]
%%         S[table-column-width=1.5cm,table-format = 2.4]
%%         S[table-column-width=1.5cm,table-format = 2.4]
%%   }
%% \caption[地区GDP数据统计诊断结果]{地区GDP数据统计诊断结果}
%% \label{tab:mixed-diagnose}\\


%%   \toprule
%%   \multicolumn{1}{c}{年份} &
%%   \multicolumn{1}{c}{地区} &
%%   \multicolumn{1}{c}{普通残差} &
%%   \multicolumn{1}{c}{学生化残差} &
%%   \multicolumn{1}{c}{杠杆值}&
%%   \multicolumn{1}{c}{Cook距离}&
%%   \multicolumn{1}{c}{统计量}&
%%   \multicolumn{1}{c}{\textit{p}值}\\
%%   \endfirsthead

%%   \multicolumn{8}{c}{{\bfseries\heiti \tablename\ \thetable{}
%%       ~~ 地区GDP数据统计诊断结果(续表)}} \\
%%   \toprule
%%   \multicolumn{1}{c}{年份} &
%%   \multicolumn{1}{c}{地区} &
%%   \multicolumn{1}{c}{普通残差} &
%%   \multicolumn{1}{c}{学生化残差} &
%%   \multicolumn{1}{c}{杠杆值}&
%%   \multicolumn{1}{c}{Cook距离}&
%%   \multicolumn{1}{c}{统计量}&
%%   \multicolumn{1}{c}{\textit{p}值}\\
%%   \midrule
%%   \endhead

%%   \bottomrule
%%   \endfoot

%%   \endlastfoot

%% @
%% <<mixed-diagnose, echo=F, results=tex>>=
%% district.data <- read.csv("D:/Works/读博项目/Dissertation/Rnw/mixed-diagnose.csv")
%% district.data.table <- xtable(district.data,
%%                    caption="",
%%                    label="",
%%                    digits=4,
%%                    )

%% print(district.data.table, floating=F,
%%       caption.placement="top",
%%       table.environment=NULL,
%%       booktabs=T,
%%       sanitize.text.function = function(x){x}, # 数学公式
%%       only.contents=T, # 控制是否有table和表格环境
%%       include.rownames=FALSE,
%%       include.colnames=F,
%%       )

%% @ %def

%% \end{longtable}

%% \end{small}


\chapter{程序代码}
\begin{spacing}{1.0}
\lstinputlisting{./thesis.R}  % 程序代码
\end{spacing}
